home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 15-05.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  731 b   |  37 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   voice_array : array[0..60] of integer;
  6.   i           : integer;
  7.   volume      : integer;
  8.  
  9. begin
  10.   if (fg_testmode(9,0) = 0) then
  11.   begin
  12.     write('This program requires a PCjr or ');
  13.     writeln('a Tandy 1000 system.');
  14.     exit;
  15.   end;
  16.  
  17.   i := 0;
  18.  
  19.   for volume := 1 to 15 do
  20.   begin
  21.     voice_array[i] := 1;      { use channel 1 }
  22.     inc(i);
  23.     voice_array[i] := 500;    { 500 Hz frequency }
  24.     inc(i);
  25.     voice_array[i] := volume; { variable volume }
  26.     inc(i);
  27.     voice_array[i] := 16;     { duration }
  28.     inc(i);
  29.   end;
  30.   voice_array[i] := 0;
  31.  
  32.   fg_voices(voice_array,1);
  33.  
  34.   while (fg_playing = 1) do
  35.      writeln('Still playing...');
  36. end.
  37.